home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 December / 64er_Magazin_91-12_1991_Markt__Technik_de_Side_A.d64 / listing 1 < prev    next >
Text File  |  2022-10-26  |  1KB  |  59 lines
  1.  lISTING 1:
  2. SEI ;iNTERRUPT-fLAG SETZEN
  3. LDA  #<NEUIRQ ;irq-vEKTOR
  4. LDX  #>NEUIRQ ;AUF NEUE
  5. STA  $0314 ;rOUTINE
  6. STX  $0315 ;VERBIEGEN
  7. LDA  #$7F ;tIMER-iNTERRUPT
  8. STA  $DC0D ;VERHINDERN
  9. LDA  #$01 ;rASTER-iNTERRUPT
  10. STA  $D01A ;ZULASSEN
  11. LDA  #$28 ;rASTER-zEILE
  12. STA  $D012 ;DEFINIEREN
  13. LDA  $D011 ;bIT8
  14. AND  #$7F ;LSCHEN
  15. STA  $D011
  16. LDA  #$00 ;gEISTERBYTE
  17. STA  $3FFF ;LSCHEN
  18. CLI ;iNTERRUPT-fLAG LSCHEN
  19. RTS
  20.  
  21. :NEUIRQLDA  $D019 ;rEGISTER $D019
  22. STA  $D019 ;LSCHEN
  23.  
  24. LDX  #$00 ;zHLER AUF NULL SETZEN
  25. LDA  #$19 ;rASTER-zEILE
  26. :WAITZEILECMP  $D012 ;ABWARTEN
  27. BCS  WAITZEILE
  28. LDY  #$0C ;vERZGERUNG
  29. :WAIT1DEY
  30. BNE  WAIT1
  31. LDA  #$10 ;EXAKTES tIMING
  32. STA  $D011 ;INITIALISIEREN
  33. LDY  #$20 ;vERZGERUNG
  34. :WAIT2DEY
  35. BNE  WAIT2
  36. BIT  $C0
  37. BIT  $C0
  38. :LABELLDY  $D012;fld-tRICK !!!
  39. DEY
  40. TYA
  41. AND  #$07
  42. ORA  #$10
  43. STA  $D011
  44. LDA  FARBE,X ;fARBWERTE SETZEN
  45. STA  $D020
  46. STA  $D021
  47.  
  48. ROR  $FFFF,X ;vERZGERUNG
  49. ROR  $FFFF,X
  50. ROR  $FFFF,X
  51. ROR  $FFFF,X
  52.  
  53. INX
  54. CPX  #$16 ;22 zEILEN
  55. BNE  LABEL ;EINGEFRBT?
  56. JMP  $EA81
  57.  
  58. :FARBE.B   15,0,6,14,15,6,14,3,15,6,14
  59. .B   3,1,15,6,13,3,1,3,14,6,0